<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admfoncmod.php,v $ 
 * $Date: 2005/10/21 12:58:07 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
if($code_op!="")
{
	$fdest='';
	if($module=="0") $fdest = "php/".$code_op.".php";
	else $fdest = "plugins/$module/php/".$code_op.".php";
	$query="UPDATE fonction SET code_op='$code_op',description='$description',id_menu='$id_menu',fichier='$fdest' WHERE id_fonction='$fid'";
	$result=rportalrequete($query) or rportalerreur($query,"?op=admfoncliste");
	header("Location: ?op=admfoncliste#$argid");
	exit();
}
$query="SELECT * FROM fonction WHERE id_fonction='$fid';";
$result=rportalrequete($query) or rportalerreur($query,"?op=admfoncliste");
if(rportalnbresult($result)==0){
    header("Location: ?op=admfoncliste");
    exit;
}
$fonction=rportalligne($result);
require_once("module/TPLN/TPLN.php"); 
$TPLN = new TPLN; 
$TPLN->Open($op_basepath."tpl/admfoncmod.html"); 
$TPLN->IncludeFile("header","environnement/$session[environnement]/header.php"); 
$TPLN->IncludeFile("footer","environnement/$session[environnement]/footer.php");

require_once(get_path_module("admin"));
$pc = new panneau_controle();
$pc->calculRubriqueParFonction('admfoncliste');
$TPLN->Parse("panneau_controle",$pc->retourneEntete());

$TPLN->Parse("fid",$fonction['id_fonction']);
$TPLN->Parse("code_op",$fonction['code_op']);
$TPLN->Parse("description",$fonction['description']);
$query="SELECT id,nom from rportal_menu GROUP BY nom";
$result=rportalrequete($query) or rportalerreur($query,"?op=admfoncliste");
if(rportalnbresult($result)==0){
    $TPLN->EraseBloc("bloc1");
}else{
    while($menu=rportalligne($result)){
        $TPLN->Parse("bloc1.mid",$menu['id']);
        $TPLN->Parse("bloc1.menu",$menu['nom']);
        if($fonction['id_menu']==$menu['id'])
        $TPLN->Parse("bloc1.selected","selected");
        else
        $TPLN->Parse("bloc1.selected","");
        $TPLN->Loop("bloc1");
    }
}
/**
  * Liste des repertoires dans le repertoire plugins
  */
$handle=opendir("plugins");
$i = 0;
while($rep=readdir($handle)) {
	if(($rep!=".")&&($rep!=".."))
	{
		if(is_dir("plugins/$rep") && file_exists("plugins/$rep/param/plugin.ini"))
		{
			$i=1;
			$TPLN->Parse("bloc2.rep",$rep);
			if (stristr($fonction['fichier'], "plugins/$rep") === false) {
				$TPLN->Parse("bloc2.selected","");
			}else{
				$TPLN->Parse("bloc2.selected","selected");
			}
			$TPLN->Loop("bloc2");
		}
	}
}
if($i==0){
	$TPLN->EraseBloc("bloc2");
}
/**
  * Fin : Liste des repertoires dans le repertoire plugins
  */

$TPLN->Write();
?>